home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 February / PC Shareware 1997-02.iso / programy / pcbaby / _setup.1 / PCBaby4.exe / 0 / RCDATA / TDOCTOR / TDOCTOR.txt < prev   
Encoding:
Text File  |  1996-10-21  |  45.4 KB  |  1,709 lines
  1. object Doctor: TDoctor
  2.   Left = 152
  3.   Top = 105
  4.   BorderStyle = bsDialog
  5.   Caption = 'At the Doctor'
  6.   ClientHeight = 385
  7.   ClientWidth = 550
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnActivate = FormActivate
  15.   TextHeight = 16
  16.   object Label35: TLabel
  17.     Left = 14
  18.     Top = 208
  19.     Width = 96
  20.     Height = 16
  21.     Alignment = taRightJustify
  22.     Caption = 'OPV (4 Months)'
  23.     Font.Color = clBlue
  24.     Font.Height = -13
  25.     Font.Name = 'Arial'
  26.     Font.Style = [fsBold]
  27.     ParentFont = False
  28.   end
  29.   object Label36: TLabel
  30.     Left = 9
  31.     Top = 232
  32.     Width = 101
  33.     Height = 16
  34.     Alignment = taRightJustify
  35.     Caption = 'DPT1 (2 Months)'
  36.     Font.Color = clBlue
  37.     Font.Height = -13
  38.     Font.Name = 'Arial'
  39.     Font.Style = [fsBold]
  40.     ParentFont = False
  41.   end
  42.   object TabbedNotebook1: TTabbedNotebook
  43.     Left = 0
  44.     Top = 0
  45.     Width = 550
  46.     Height = 385
  47.     Align = alClient
  48.     Font.Color = clBlue
  49.     Font.Height = -13
  50.     Font.Name = 'System'
  51.     Font.Style = [fsBold]
  52.     TabsPerRow = 4
  53.     TabFont.Color = clBlue
  54.     TabFont.Height = -12
  55.     TabFont.Name = 'MS Sans Serif'
  56.     TabFont.Style = []
  57.     TabOrder = 0
  58.     object TTabPage
  59.       Left = 5
  60.       Top = 26
  61.       Caption = 'Pediatrician Information'
  62.       object Image2: TImage
  63.         Left = 56
  64.         Top = 264
  65.         Width = 49
  66.         Height = 49
  67.         Picture.Data = {<image000.bmp>}
  68.       end
  69.       object Image1: TImage
  70.         Left = 360
  71.         Top = 48
  72.         Width = 153
  73.         Height = 185
  74.         Picture.Data = {<image001.bmp>}
  75.       end
  76.       object Bevel3: TBevel
  77.         Left = 360
  78.         Top = 48
  79.         Width = 153
  80.         Height = 185
  81.       end
  82.       object Bevel4: TBevel
  83.         Left = 56
  84.         Top = 264
  85.         Width = 50
  86.         Height = 50
  87.       end
  88.       object Label5: TLabel
  89.         Left = 7
  90.         Top = 330
  91.         Width = 123
  92.         Height = 24
  93.         Caption = 'At the Doctor'
  94.         Font.Color = clBlue
  95.         Font.Height = -21
  96.         Font.Name = 'Arial'
  97.         Font.Style = []
  98.         ParentFont = False
  99.       end
  100.       object OKBtn: TBitBtn
  101.         Left = 340
  102.         Top = 319
  103.         Width = 93
  104.         Height = 27
  105.         Caption = 'Ok'
  106.         Default = True
  107.         Font.Color = clGreen
  108.         Font.Height = -19
  109.         Font.Name = 'Arial'
  110.         Font.Style = []
  111.         ModalResult = 1
  112.         ParentFont = False
  113.         TabOrder = 0
  114.         OnClick = OKBtnClick
  115.         Glyph.Data = {
  116.           F6000000424DF600000000000000760000002800000010000000100000000100
  117.           04000000000080000000CE0E0000D80E00000000000000000000000000000000
  118.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  119.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  120.           5555555555555555555555555205555555555555222055555555555522205555
  121.           5555555222220555555555222222055555555722052220555555720555522055
  122.           5555555555522205555555555555220555555555555552205555555555555572
  123.           0555555555555557205555555555555552205555555555555555}
  124.         Margin = 8
  125.         Spacing = -1
  126.       end
  127.       object CancelBtn: TBitBtn
  128.         Left = 436
  129.         Top = 319
  130.         Width = 93
  131.         Height = 27
  132.         Font.Color = clRed
  133.         Font.Height = -19
  134.         Font.Name = 'Arial'
  135.         Font.Style = []
  136.         ParentFont = False
  137.         TabOrder = 1
  138.         OnClick = CancelBtnClick
  139.         Kind = bkCancel
  140.         Margin = 2
  141.         Spacing = -1
  142.       end
  143.       object GroupBox1: TGroupBox
  144.         Left = 8
  145.         Top = 16
  146.         Width = 329
  147.         Height = 233
  148.         TabOrder = 2
  149.         object Lable777: TLabel
  150.           Left = 40
  151.           Top = 32
  152.           Width = 55
  153.           Height = 22
  154.           Alignment = taRightJustify
  155.           Caption = 'Name:'
  156.           Font.Color = clBlue
  157.           Font.Height = -19
  158.           Font.Name = 'Arial'
  159.           Font.Style = []
  160.           ParentFont = False
  161.         end
  162.         object Label9: TLabel
  163.           Left = 58
  164.           Top = 112
  165.           Width = 37
  166.           Height = 22
  167.           Alignment = taRightJustify
  168.           Caption = 'City:'
  169.           Font.Color = clBlue
  170.           Font.Height = -19
  171.           Font.Name = 'Arial'
  172.           Font.Style = []
  173.           ParentFont = False
  174.         end
  175.         object Label10: TLabel
  176.           Left = 46
  177.           Top = 152
  178.           Width = 49
  179.           Height = 22
  180.           Alignment = taRightJustify
  181.           Caption = 'State:'
  182.           Font.Color = clBlue
  183.           Font.Height = -19
  184.           Font.Name = 'Arial'
  185.           Font.Style = []
  186.           ParentFont = False
  187.         end
  188.         object Label11: TLabel
  189.           Left = 35
  190.           Top = 184
  191.           Width = 60
  192.           Height = 22
  193.           Alignment = taRightJustify
  194.           Caption = 'Phone:'
  195.           Font.Color = clBlue
  196.           Font.Height = -19
  197.           Font.Name = 'Arial'
  198.           Font.Style = []
  199.           ParentFont = False
  200.         end
  201.         object Label8: TLabel
  202.           Left = 18
  203.           Top = 72
  204.           Width = 77
  205.           Height = 22
  206.           Alignment = taRightJustify
  207.           Caption = 'Address:'
  208.           Font.Color = clBlue
  209.           Font.Height = -19
  210.           Font.Name = 'Arial'
  211.           Font.Style = []
  212.           ParentFont = False
  213.         end
  214.         object Label12: TLabel
  215.           Left = 183
  216.           Top = 152
  217.           Width = 32
  218.           Height = 22
  219.           Alignment = taRightJustify
  220.           Caption = 'Zip:'
  221.           Font.Color = clBlue
  222.           Font.Height = -19
  223.           Font.Name = 'Arial'
  224.           Font.Style = []
  225.           ParentFont = False
  226.         end
  227.         object DocName: TEdit
  228.           Left = 104
  229.           Top = 24
  230.           Width = 217
  231.           Height = 26
  232.           Font.Color = clBlack
  233.           Font.Height = -16
  234.           Font.Name = 'Arial'
  235.           Font.Style = []
  236.           ParentFont = False
  237.           TabOrder = 0
  238.         end
  239.         object DocAddress: TEdit
  240.           Left = 104
  241.           Top = 64
  242.           Width = 217
  243.           Height = 26
  244.           Font.Color = clBlack
  245.           Font.Height = -16
  246.           Font.Name = 'Arial'
  247.           Font.Style = []
  248.           ParentFont = False
  249.           TabOrder = 1
  250.         end
  251.         object DocCity: TEdit
  252.           Left = 104
  253.           Top = 104
  254.           Width = 217
  255.           Height = 26
  256.           Font.Color = clBlack
  257.           Font.Height = -16
  258.           Font.Name = 'Arial'
  259.           Font.Style = []
  260.           ParentFont = False
  261.           TabOrder = 2
  262.         end
  263.         object DocState: TEdit
  264.           Left = 104
  265.           Top = 144
  266.           Width = 49
  267.           Height = 26
  268.           Font.Color = clBlack
  269.           Font.Height = -16
  270.           Font.Name = 'Arial'
  271.           Font.Style = []
  272.           ParentFont = False
  273.           TabOrder = 3
  274.         end
  275.         object DocPhone: TEdit
  276.           Left = 104
  277.           Top = 184
  278.           Width = 217
  279.           Height = 26
  280.           Font.Color = clBlack
  281.           Font.Height = -16
  282.           Font.Name = 'Arial'
  283.           Font.Style = []
  284.           ParentFont = False
  285.           TabOrder = 4
  286.         end
  287.         object DocZip: TEdit
  288.           Left = 224
  289.           Top = 144
  290.           Width = 97
  291.           Height = 26
  292.           Font.Color = clBlack
  293.           Font.Height = -16
  294.           Font.Name = 'Arial'
  295.           Font.Style = []
  296.           ParentFont = False
  297.           TabOrder = 5
  298.         end
  299.       end
  300.       object HelpBtn: TBitBtn
  301.         Left = 504
  302.         Top = 287
  303.         Width = 25
  304.         Height = 27
  305.         Caption = ' '
  306.         Font.Color = clBlack
  307.         Font.Height = -11
  308.         Font.Name = 'MS Sans Serif'
  309.         Font.Style = [fsBold]
  310.         ParentFont = False
  311.         TabOrder = 3
  312.         OnClick = HelpBtnClick
  313.         Kind = bkHelp
  314.         Margin = 2
  315.         Spacing = -1
  316.       end
  317.     end
  318.     object TTabPage
  319.       Left = 5
  320.       Top = 26
  321.       Caption = 'Doctor Visits'
  322.       object Shape1: TShape
  323.         Left = 352
  324.         Top = 192
  325.         Width = 81
  326.         Height = 97
  327.         Brush.Color = clBtnFace
  328.         Pen.Color = clRed
  329.         Pen.Style = psInsideFrame
  330.         Pen.Width = 2
  331.       end
  332.       object Label1: TLabel
  333.         Left = 144
  334.         Top = 8
  335.         Width = 41
  336.         Height = 19
  337.         Caption = 'Date:'
  338.         Font.Color = clBlue
  339.         Font.Height = -16
  340.         Font.Name = 'Arial'
  341.         Font.Style = [fsBold]
  342.         ParentFont = False
  343.       end
  344.       object Label2: TLabel
  345.         Left = 8
  346.         Top = 40
  347.         Width = 38
  348.         Height = 19
  349.         Caption = 'Title:'
  350.         Font.Color = clBlue
  351.         Font.Height = -16
  352.         Font.Name = 'Arial'
  353.         Font.Style = [fsBold]
  354.         ParentFont = False
  355.       end
  356.       object Label3: TLabel
  357.         Left = 320
  358.         Top = 16
  359.         Width = 99
  360.         Height = 19
  361.         Caption = 'Date Search:'
  362.         Font.Color = clBlue
  363.         Font.Height = -16
  364.         Font.Name = 'Arial'
  365.         Font.Style = [fsBold]
  366.         ParentFont = False
  367.       end
  368.       object Label4: TLabel
  369.         Left = 320
  370.         Top = 80
  371.         Width = 96
  372.         Height = 19
  373.         Caption = 'Title Search:'
  374.         Font.Color = clBlue
  375.         Font.Height = -16
  376.         Font.Name = 'Arial'
  377.         Font.Style = [fsBold]
  378.         ParentFont = False
  379.       end
  380.       object Title: TLabel
  381.         Left = 56
  382.         Top = 40
  383.         Width = 249
  384.         Height = 19
  385.         AutoSize = False
  386.         Caption = 'Diary Empty'
  387.         Font.Color = clBlue
  388.         Font.Height = -16
  389.         Font.Name = 'Arial'
  390.         Font.Style = [fsBold]
  391.         ParentFont = False
  392.       end
  393.       object Up: TSpeedButton
  394.         Left = 280
  395.         Top = 240
  396.         Width = 25
  397.         Height = 25
  398.         Hint = 'Previous Record'
  399.         Glyph.Data = {
  400.           78010000424D7801000000000000760000002800000020000000100000000100
  401.           04000000000000000000120B0000120B00000000000000000000000000000000
  402.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  403.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
  404.           3333333333777F33333333333309033333333333337F7F333333333333090333
  405.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  406.           33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
  407.           3333333777737777F333333099999990333333373F3333373333333309999903
  408.           333333337F33337F33333333099999033333333373F333733333333330999033
  409.           3333333337F337F3333333333099903333333333373F37333333333333090333
  410.           33333333337F7F33333333333309033333333333337373333333333333303333
  411.           333333333337F3333333333333303333333333333337333333330000}
  412.         NumGlyphs = 2
  413.         ParentShowHint = False
  414.         ShowHint = True
  415.         OnClick = UpClick
  416.       end
  417.       object DelButton: TSpeedButton
  418.         Left = 368
  419.         Top = 216
  420.         Width = 49
  421.         Height = 49
  422.         Glyph.Data = {
  423.           26020000424D260200000000000076000000280000001C0000001B0000000100
  424.           040000000000B0010000CE0E0000D80E00000000000000000000000000000000
  425.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  426.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
  427.           66666666676666660000666666666666666666667B101B160000666666666666
  428.           66666667B101B1B600006666666666666666667B101B1B060000666666666666
  429.           666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
  430.           66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
  431.           67022201B0B0000600006666666666667B0022000B0000660000666666666667
  432.           B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
  433.           B1B1B0200006666600006666666672001B1B1000006666660000666666670222
  434.           01B1B000066666660000666666780022001B00006666666600006666678D8D02
  435.           20B0000666666666000066667008D800200000666666666600006667FDF08D80
  436.           20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
  437.           0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
  438.           06666666666666660000600FDFDF000066666666666666660000600DFDF00006
  439.           6666666666666666000060000000006666666666666666660000660000000666
  440.           66666666666666660000}
  441.         OnClick = DelButtonClick
  442.       end
  443.       object Down: TSpeedButton
  444.         Left = 280
  445.         Top = 272
  446.         Width = 25
  447.         Height = 25
  448.         Hint = 'Next Record'
  449.         Glyph.Data = {
  450.           78010000424D7801000000000000760000002800000020000000100000000100
  451.           04000000000000000000120B0000120B00000000000000000000000000000000
  452.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  453.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
  454.           333333333337F33333333333333033333333333333373F333333333333090333
  455.           33333333337F7F33333333333309033333333333337373F33333333330999033
  456.           3333333337F337F33333333330999033333333333733373F3333333309999903
  457.           333333337F33337F33333333099999033333333373333373F333333099999990
  458.           33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
  459.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  460.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  461.           33333333337F7F333333333333000333333333333377733333330000}
  462.         NumGlyphs = 2
  463.         ParentShowHint = False
  464.         ShowHint = True
  465.         OnClick = DownClick
  466.       end
  467.       object Label6: TLabel
  468.         Left = 360
  469.         Top = 200
  470.         Width = 65
  471.         Height = 16
  472.         Alignment = taCenter
  473.         AutoSize = False
  474.         Caption = 'Delete'
  475.         Font.Color = clRed
  476.         Font.Height = -13
  477.         Font.Name = 'System'
  478.         Font.Style = [fsBold]
  479.         ParentFont = False
  480.         Transparent = True
  481.       end
  482.       object Label7: TLabel
  483.         Left = 360
  484.         Top = 264
  485.         Width = 65
  486.         Height = 16
  487.         Alignment = taCenter
  488.         AutoSize = False
  489.         Caption = 'Record'
  490.         Font.Color = clRed
  491.         Font.Height = -13
  492.         Font.Name = 'System'
  493.         Font.Style = [fsBold]
  494.         ParentFont = False
  495.         Transparent = True
  496.       end
  497.       object Text92: TLabel
  498.         Left = 7
  499.         Top = 330
  500.         Width = 123
  501.         Height = 24
  502.         Caption = 'At the Doctor'
  503.         Font.Color = clBlue
  504.         Font.Height = -21
  505.         Font.Name = 'Arial'
  506.         Font.Style = []
  507.         ParentFont = False
  508.       end
  509.       object EntryDate: TLabel
  510.         Left = 192
  511.         Top = 8
  512.         Width = 64
  513.         Height = 19
  514.         Caption = '__-__-__'
  515.         Font.Color = clBlue
  516.         Font.Height = -16
  517.         Font.Name = 'Arial'
  518.         Font.Style = [fsBold]
  519.         ParentFont = False
  520.       end
  521.       object Ok2: TBitBtn
  522.         Left = 340
  523.         Top = 319
  524.         Width = 93
  525.         Height = 27
  526.         Caption = 'Ok'
  527.         Default = True
  528.         Font.Color = clGreen
  529.         Font.Height = -19
  530.         Font.Name = 'Arial'
  531.         Font.Style = []
  532.         ModalResult = 1
  533.         ParentFont = False
  534.         TabOrder = 0
  535.         OnClick = Ok2Click
  536.         Glyph.Data = {
  537.           F6000000424DF600000000000000760000002800000010000000100000000100
  538.           04000000000080000000CE0E0000D80E00000000000000000000000000000000
  539.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  540.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  541.           5555555555555555555555555205555555555555222055555555555522205555
  542.           5555555222220555555555222222055555555722052220555555720555522055
  543.           5555555555522205555555555555220555555555555552205555555555555572
  544.           0555555555555557205555555555555552205555555555555555}
  545.         Margin = 8
  546.         Spacing = -1
  547.       end
  548.       object Cancel2: TBitBtn
  549.         Left = 436
  550.         Top = 319
  551.         Width = 93
  552.         Height = 27
  553.         Font.Color = clRed
  554.         Font.Height = -19
  555.         Font.Name = 'Arial'
  556.         Font.Style = []
  557.         ParentFont = False
  558.         TabOrder = 1
  559.         OnClick = Cancel2Click
  560.         Kind = bkCancel
  561.         Margin = 2
  562.         Spacing = -1
  563.       end
  564.       object Help2: TBitBtn
  565.         Left = 504
  566.         Top = 287
  567.         Width = 25
  568.         Height = 27
  569.         Caption = ' '
  570.         Font.Color = clBlack
  571.         Font.Height = -11
  572.         Font.Name = 'MS Sans Serif'
  573.         Font.Style = [fsBold]
  574.         ParentFont = False
  575.         TabOrder = 2
  576.         OnClick = Help2Click
  577.         Kind = bkHelp
  578.         Margin = 2
  579.         Spacing = -1
  580.       end
  581.       object Entry: TMemo
  582.         Left = 8
  583.         Top = 72
  584.         Width = 265
  585.         Height = 225
  586.         Lines.Strings = (
  587.           '')
  588.         ScrollBars = ssVertical
  589.         TabOrder = 3
  590.       end
  591.       object DateSearch: TComboBox
  592.         Left = 320
  593.         Top = 40
  594.         Width = 145
  595.         Height = 26
  596.         Font.Color = clBlue
  597.         Font.Height = -16
  598.         Font.Name = 'Arial'
  599.         Font.Style = []
  600.         ItemHeight = 18
  601.         ParentFont = False
  602.         TabOrder = 4
  603.         OnClick = DateSearchClick
  604.       end
  605.       object TitleSearch: TComboBox
  606.         Left = 320
  607.         Top = 104
  608.         Width = 145
  609.         Height = 26
  610.         Font.Color = clBlue
  611.         Font.Height = -16
  612.         Font.Name = 'Arial'
  613.         Font.Style = []
  614.         ItemHeight = 18
  615.         ParentFont = False
  616.         TabOrder = 5
  617.         OnClick = TitleSearchClick
  618.       end
  619.       object BitBtn1: TBitBtn
  620.         Left = 320
  621.         Top = 144
  622.         Width = 145
  623.         Height = 33
  624.         Caption = 'New Entry'
  625.         Font.Color = clBlue
  626.         Font.Height = -19
  627.         Font.Name = 'Arial'
  628.         Font.Style = [fsBold]
  629.         ParentFont = False
  630.         TabOrder = 6
  631.         OnClick = BitBtn1Click
  632.       end
  633.     end
  634.     object TTabPage
  635.       Left = 5
  636.       Top = 26
  637.       Caption = 'Immunizations'
  638.       object Label13: TLabel
  639.         Left = 7
  640.         Top = 330
  641.         Width = 123
  642.         Height = 24
  643.         Caption = 'At the Doctor'
  644.         Font.Color = clBlue
  645.         Font.Height = -21
  646.         Font.Name = 'Arial'
  647.         Font.Style = []
  648.         ParentFont = False
  649.       end
  650.       object Label21: TLabel
  651.         Left = 57
  652.         Top = 120
  653.         Width = 101
  654.         Height = 16
  655.         Alignment = taRightJustify
  656.         Caption = 'DTP1 (2 Months)'
  657.         Font.Color = clBlue
  658.         Font.Height = -13
  659.         Font.Name = 'Arial'
  660.         Font.Style = [fsBold]
  661.         ParentFont = False
  662.       end
  663.       object Label23: TLabel
  664.         Left = 64
  665.         Top = 144
  666.         Width = 94
  667.         Height = 16
  668.         Alignment = taRightJustify
  669.         Caption = 'DTP (4 Months)'
  670.         Font.Color = clBlue
  671.         Font.Height = -13
  672.         Font.Name = 'Arial'
  673.         Font.Style = [fsBold]
  674.         ParentFont = False
  675.       end
  676.       object Label24: TLabel
  677.         Left = 64
  678.         Top = 168
  679.         Width = 94
  680.         Height = 16
  681.         Alignment = taRightJustify
  682.         Caption = 'DTP (6 Months)'
  683.         Font.Color = clBlue
  684.         Font.Height = -13
  685.         Font.Name = 'Arial'
  686.         Font.Style = [fsBold]
  687.         ParentFont = False
  688.       end
  689.       object Label25: TLabel
  690.         Left = 57
  691.         Top = 192
  692.         Width = 101
  693.         Height = 16
  694.         Alignment = taRightJustify
  695.         Caption = 'DTP (15 Months)'
  696.         Font.Color = clBlue
  697.         Font.Height = -13
  698.         Font.Name = 'Arial'
  699.         Font.Style = [fsBold]
  700.         ParentFont = False
  701.       end
  702.       object Label26: TLabel
  703.         Left = 62
  704.         Top = 264
  705.         Width = 96
  706.         Height = 16
  707.         Alignment = taRightJustify
  708.         Caption = 'OPV (4 Months)'
  709.         Font.Color = clBlue
  710.         Font.Height = -13
  711.         Font.Name = 'Arial'
  712.         Font.Style = [fsBold]
  713.         ParentFont = False
  714.       end
  715.       object Label27: TLabel
  716.         Left = 324
  717.         Top = 48
  718.         Width = 90
  719.         Height = 16
  720.         Alignment = taRightJustify
  721.         Caption = 'HIB (2 Months)'
  722.         Font.Color = clBlue
  723.         Font.Height = -13
  724.         Font.Name = 'Arial'
  725.         Font.Style = [fsBold]
  726.         ParentFont = False
  727.       end
  728.       object Label28: TLabel
  729.         Left = 324
  730.         Top = 72
  731.         Width = 90
  732.         Height = 16
  733.         Alignment = taRightJustify
  734.         Caption = 'HIB (4 Months)'
  735.         Font.Color = clBlue
  736.         Font.Height = -13
  737.         Font.Name = 'Arial'
  738.         Font.Style = [fsBold]
  739.         ParentFont = False
  740.       end
  741.       object Label29: TLabel
  742.         Left = 324
  743.         Top = 96
  744.         Width = 90
  745.         Height = 16
  746.         Alignment = taRightJustify
  747.         Caption = 'HIB (6 Months)'
  748.         Font.Color = clBlue
  749.         Font.Height = -13
  750.         Font.Name = 'Arial'
  751.         Font.Style = [fsBold]
  752.         ParentFont = False
  753.       end
  754.       object Label22: TLabel
  755.         Left = 317
  756.         Top = 120
  757.         Width = 97
  758.         Height = 16
  759.         Alignment = taRightJustify
  760.         Caption = 'HIB (12 Months)'
  761.         Font.Color = clBlue
  762.         Font.Height = -13
  763.         Font.Name = 'Arial'
  764.         Font.Style = [fsBold]
  765.         ParentFont = False
  766.       end
  767.       object Label30: TLabel
  768.         Left = 55
  769.         Top = 288
  770.         Width = 103
  771.         Height = 16
  772.         Alignment = taRightJustify
  773.         Caption = 'OPV (15 Months)'
  774.         Font.Color = clBlue
  775.         Font.Height = -13
  776.         Font.Name = 'Arial'
  777.         Font.Style = [fsBold]
  778.         ParentFont = False
  779.       end
  780.       object Label31: TLabel
  781.         Left = 98
  782.         Top = 24
  783.         Width = 60
  784.         Height = 16
  785.         Alignment = taRightJustify
  786.         Caption = 'HB (Birth)'
  787.         Font.Color = clBlue
  788.         Font.Height = -13
  789.         Font.Name = 'Arial'
  790.         Font.Style = [fsBold]
  791.         ParentFont = False
  792.       end
  793.       object Label32: TLabel
  794.         Left = 61
  795.         Top = 48
  796.         Width = 97
  797.         Height = 16
  798.         Alignment = taRightJustify
  799.         Caption = 'HB (1-2 Months)'
  800.         Font.Color = clBlue
  801.         Font.Height = -13
  802.         Font.Name = 'Arial'
  803.         Font.Style = [fsBold]
  804.         ParentFont = False
  805.       end
  806.       object Label33: TLabel
  807.         Left = 72
  808.         Top = 72
  809.         Width = 86
  810.         Height = 16
  811.         Alignment = taRightJustify
  812.         Caption = 'HB (4 Months)'
  813.         Font.Color = clBlue
  814.         Font.Height = -13
  815.         Font.Name = 'Arial'
  816.         Font.Style = [fsBold]
  817.         ParentFont = False
  818.       end
  819.       object Label34: TLabel
  820.         Left = 54
  821.         Top = 96
  822.         Width = 104
  823.         Height = 16
  824.         Alignment = taRightJustify
  825.         Caption = 'HB (6-18 Months)'
  826.         Font.Color = clBlue
  827.         Font.Height = -13
  828.         Font.Name = 'Arial'
  829.         Font.Style = [fsBold]
  830.         ParentFont = False
  831.       end
  832.       object Label37: TLabel
  833.         Left = 64
  834.         Top = 216
  835.         Width = 94
  836.         Height = 16
  837.         Alignment = taRightJustify
  838.         Caption = 'DTP (4-6 years)'
  839.         Font.Color = clBlue
  840.         Font.Height = -13
  841.         Font.Name = 'Arial'
  842.         Font.Style = [fsBold]
  843.         ParentFont = False
  844.       end
  845.       object Label38: TLabel
  846.         Left = 62
  847.         Top = 240
  848.         Width = 96
  849.         Height = 16
  850.         Alignment = taRightJustify
  851.         Caption = 'OPV (2 Months)'
  852.         Font.Color = clBlue
  853.         Font.Height = -13
  854.         Font.Name = 'Arial'
  855.         Font.Style = [fsBold]
  856.         ParentFont = False
  857.       end
  858.       object Label39: TLabel
  859.         Left = 318
  860.         Top = 24
  861.         Width = 96
  862.         Height = 16
  863.         Alignment = taRightJustify
  864.         Caption = 'OPV (4-6 years)'
  865.         Font.Color = clBlue
  866.         Font.Height = -13
  867.         Font.Name = 'Arial'
  868.         Font.Style = [fsBold]
  869.         ParentFont = False
  870.       end
  871.       object Label40: TLabel
  872.         Left = 317
  873.         Top = 144
  874.         Width = 97
  875.         Height = 16
  876.         Alignment = taRightJustify
  877.         Caption = 'HIB (15 Months)'
  878.         Font.Color = clBlue
  879.         Font.Height = -13
  880.         Font.Name = 'Arial'
  881.         Font.Style = [fsBold]
  882.         ParentFont = False
  883.       end
  884.       object Label41: TLabel
  885.         Left = 308
  886.         Top = 168
  887.         Width = 106
  888.         Height = 16
  889.         Alignment = taRightJustify
  890.         Caption = 'MMR (15 Months)'
  891.         Font.Color = clBlue
  892.         Font.Height = -13
  893.         Font.Name = 'Arial'
  894.         Font.Style = [fsBold]
  895.         ParentFont = False
  896.       end
  897.       object Label42: TLabel
  898.         Left = 315
  899.         Top = 192
  900.         Width = 99
  901.         Height = 16
  902.         Alignment = taRightJustify
  903.         Caption = 'MMR (4-6 years)'
  904.         Font.Color = clBlue
  905.         Font.Height = -13
  906.         Font.Name = 'Arial'
  907.         Font.Style = [fsBold]
  908.         ParentFont = False
  909.       end
  910.       object Label43: TLabel
  911.         Left = 224
  912.         Top = 0
  913.         Width = 311
  914.         Height = 13
  915.         Caption = 'Click the help button for details on these immunizatons'
  916.         Font.Color = clYellow
  917.         Font.Height = -11
  918.         Font.Name = 'MS Sans Serif'
  919.         Font.Style = [fsBold]
  920.         ParentFont = False
  921.       end
  922.       object Ok3: TBitBtn
  923.         Left = 340
  924.         Top = 319
  925.         Width = 93
  926.         Height = 27
  927.         Caption = 'Ok'
  928.         Default = True
  929.         Font.Color = clGreen
  930.         Font.Height = -19
  931.         Font.Name = 'Arial'
  932.         Font.Style = []
  933.         ModalResult = 1
  934.         ParentFont = False
  935.         TabOrder = 0
  936.         OnClick = Ok3Click
  937.         Glyph.Data = {
  938.           F6000000424DF600000000000000760000002800000010000000100000000100
  939.           04000000000080000000CE0E0000D80E00000000000000000000000000000000
  940.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  941.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  942.           5555555555555555555555555205555555555555222055555555555522205555
  943.           5555555222220555555555222222055555555722052220555555720555522055
  944.           5555555555522205555555555555220555555555555552205555555555555572
  945.           0555555555555557205555555555555552205555555555555555}
  946.         Margin = 8
  947.         Spacing = -1
  948.       end
  949.       object Cancel3: TBitBtn
  950.         Left = 436
  951.         Top = 319
  952.         Width = 93
  953.         Height = 27
  954.         Font.Color = clRed
  955.         Font.Height = -19
  956.         Font.Name = 'Arial'
  957.         Font.Style = []
  958.         ParentFont = False
  959.         TabOrder = 1
  960.         OnClick = Cancel3Click
  961.         Kind = bkCancel
  962.         Margin = 2
  963.         Spacing = -1
  964.       end
  965.       object Help3: TBitBtn
  966.         Left = 296
  967.         Top = 319
  968.         Width = 25
  969.         Height = 27
  970.         Caption = ' '
  971.         Font.Color = clBlack
  972.         Font.Height = -11
  973.         Font.Name = 'MS Sans Serif'
  974.         Font.Style = [fsBold]
  975.         ParentFont = False
  976.         TabOrder = 2
  977.         OnClick = Help3Click
  978.         Kind = bkHelp
  979.         Margin = 2
  980.         Spacing = -1
  981.       end
  982.       object MaskEdit9: TMaskEdit
  983.         Left = 168
  984.         Top = 192
  985.         Width = 73
  986.         Height = 20
  987.         EditMask = '!99-99-00;1;_'
  988.         Font.Color = clBlack
  989.         Font.Height = -11
  990.         Font.Name = 'MS Sans Serif'
  991.         Font.Style = []
  992.         MaxLength = 8
  993.         ParentFont = False
  994.         TabOrder = 3
  995.         Text = '  -  -  '
  996.       end
  997.       object MaskEdit8: TMaskEdit
  998.         Left = 168
  999.         Top = 168
  1000.         Width = 73
  1001.         Height = 20
  1002.         EditMask = '!99-99-00;1;_'
  1003.         Font.Color = clBlack
  1004.         Font.Height = -11
  1005.         Font.Name = 'MS Sans Serif'
  1006.         Font.Style = []
  1007.         MaxLength = 8
  1008.         ParentFont = False
  1009.         TabOrder = 4
  1010.         Text = '  -  -  '
  1011.       end
  1012.       object MaskEdit7: TMaskEdit
  1013.         Left = 168
  1014.         Top = 144
  1015.         Width = 73
  1016.         Height = 20
  1017.         EditMask = '!99-99-00;1;_'
  1018.         Font.Color = clBlack
  1019.         Font.Height = -11
  1020.         Font.Name = 'MS Sans Serif'
  1021.         Font.Style = []
  1022.         MaxLength = 8
  1023.         ParentFont = False
  1024.         TabOrder = 5
  1025.         Text = '  -  -  '
  1026.       end
  1027.       object MaskEdit6: TMaskEdit
  1028.         Left = 168
  1029.         Top = 120
  1030.         Width = 73
  1031.         Height = 20
  1032.         EditMask = '!99-99-00;1;_'
  1033.         Font.Color = clBlack
  1034.         Font.Height = -11
  1035.         Font.Name = 'MS Sans Serif'
  1036.         Font.Style = []
  1037.         MaxLength = 8
  1038.         ParentFont = False
  1039.         TabOrder = 6
  1040.         Text = '  -  -  '
  1041.       end
  1042.       object MaskEdit5: TMaskEdit
  1043.         Left = 168
  1044.         Top = 96
  1045.         Width = 73
  1046.         Height = 20
  1047.         EditMask = '!99-99-00;1;_'
  1048.         Font.Color = clBlack
  1049.         Font.Height = -11
  1050.         Font.Name = 'MS Sans Serif'
  1051.         Font.Style = []
  1052.         MaxLength = 8
  1053.         ParentFont = False
  1054.         TabOrder = 7
  1055.         Text = '  -  -  '
  1056.       end
  1057.       object MaskEdit4: TMaskEdit
  1058.         Left = 168
  1059.         Top = 72
  1060.         Width = 73
  1061.         Height = 20
  1062.         EditMask = '!99-99-00;1;_'
  1063.         Font.Color = clBlack
  1064.         Font.Height = -11
  1065.         Font.Name = 'MS Sans Serif'
  1066.         Font.Style = []
  1067.         MaxLength = 8
  1068.         ParentFont = False
  1069.         TabOrder = 8
  1070.         Text = '  -  -  '
  1071.       end
  1072.       object MaskEdit3: TMaskEdit
  1073.         Left = 168
  1074.         Top = 48
  1075.         Width = 73
  1076.         Height = 20
  1077.         EditMask = '!99-99-00;1;_'
  1078.         Font.Color = clBlack
  1079.         Font.Height = -11
  1080.         Font.Name = 'MS Sans Serif'
  1081.         Font.Style = []
  1082.         MaxLength = 8
  1083.         ParentFont = False
  1084.         TabOrder = 9
  1085.         Text = '  -  -  '
  1086.       end
  1087.       object MaskEdit2: TMaskEdit
  1088.         Left = 168
  1089.         Top = 24
  1090.         Width = 73
  1091.         Height = 20
  1092.         EditMask = '!99-99-00;1;_'
  1093.         Font.Color = clBlack
  1094.         Font.Height = -11
  1095.         Font.Name = 'MS Sans Serif'
  1096.         Font.Style = []
  1097.         MaxLength = 8
  1098.         ParentFont = False
  1099.         TabOrder = 10
  1100.         Text = '  -  -  '
  1101.       end
  1102.       object MaskEdit17: TMaskEdit
  1103.         Left = 424
  1104.         Top = 96
  1105.         Width = 73
  1106.         Height = 20
  1107.         EditMask = '!99-99-00;1;_'
  1108.         Font.Color = clBlack
  1109.         Font.Height = -11
  1110.         Font.Name = 'MS Sans Serif'
  1111.         Font.Style = []
  1112.         MaxLength = 8
  1113.         ParentFont = False
  1114.         TabOrder = 11
  1115.         Text = '  -  -  '
  1116.       end
  1117.       object MaskEdit16: TMaskEdit
  1118.         Left = 424
  1119.         Top = 72
  1120.         Width = 73
  1121.         Height = 20
  1122.         EditMask = '!99-99-00;1;_'
  1123.         Font.Color = clBlack
  1124.         Font.Height = -11
  1125.         Font.Name = 'MS Sans Serif'
  1126.         Font.Style = []
  1127.         MaxLength = 8
  1128.         ParentFont = False
  1129.         TabOrder = 12
  1130.         Text = '  -  -  '
  1131.       end
  1132.       object MaskEdit15: TMaskEdit
  1133.         Left = 424
  1134.         Top = 48
  1135.         Width = 73
  1136.         Height = 20
  1137.         EditMask = '!99-99-00;1;_'
  1138.         Font.Color = clBlack
  1139.         Font.Height = -11
  1140.         Font.Name = 'MS Sans Serif'
  1141.         Font.Style = []
  1142.         MaxLength = 8
  1143.         ParentFont = False
  1144.         TabOrder = 13
  1145.         Text = '  -  -  '
  1146.       end
  1147.       object MaskEdit14: TMaskEdit
  1148.         Left = 424
  1149.         Top = 24
  1150.         Width = 73
  1151.         Height = 20
  1152.         EditMask = '!99-99-00;1;_'
  1153.         Font.Color = clBlack
  1154.         Font.Height = -11
  1155.         Font.Name = 'MS Sans Serif'
  1156.         Font.Style = []
  1157.         MaxLength = 8
  1158.         ParentFont = False
  1159.         TabOrder = 14
  1160.         Text = '  -  -  '
  1161.       end
  1162.       object MaskEdit13: TMaskEdit
  1163.         Left = 168
  1164.         Top = 288
  1165.         Width = 73
  1166.         Height = 20
  1167.         EditMask = '!99-99-00;1;_'
  1168.         Font.Color = clBlack
  1169.         Font.Height = -11
  1170.         Font.Name = 'MS Sans Serif'
  1171.         Font.Style = []
  1172.         MaxLength = 8
  1173.         ParentFont = False
  1174.         TabOrder = 15
  1175.         Text = '  -  -  '
  1176.       end
  1177.       object MaskEdit12: TMaskEdit
  1178.         Left = 168
  1179.         Top = 264
  1180.         Width = 73
  1181.         Height = 20
  1182.         EditMask = '!99-99-00;1;_'
  1183.         Font.Color = clBlack
  1184.         Font.Height = -11
  1185.         Font.Name = 'MS Sans Serif'
  1186.         Font.Style = []
  1187.         MaxLength = 8
  1188.         ParentFont = False
  1189.         TabOrder = 16
  1190.         Text = '  -  -  '
  1191.       end
  1192.       object MaskEdit11: TMaskEdit
  1193.         Left = 168
  1194.         Top = 240
  1195.         Width = 73
  1196.         Height = 20
  1197.         EditMask = '!99-99-00;1;_'
  1198.         Font.Color = clBlack
  1199.         Font.Height = -11
  1200.         Font.Name = 'MS Sans Serif'
  1201.         Font.Style = []
  1202.         MaxLength = 8
  1203.         ParentFont = False
  1204.         TabOrder = 17
  1205.         Text = '  -  -  '
  1206.       end
  1207.       object MaskEdit10: TMaskEdit
  1208.         Left = 168
  1209.         Top = 216
  1210.         Width = 73
  1211.         Height = 20
  1212.         EditMask = '!99-99-00;1;_'
  1213.         Font.Color = clBlack
  1214.         Font.Height = -11
  1215.         Font.Name = 'MS Sans Serif'
  1216.         Font.Style = []
  1217.         MaxLength = 8
  1218.         ParentFont = False
  1219.         TabOrder = 18
  1220.         Text = '  -  -  '
  1221.       end
  1222.       object MaskEdit1: TMaskEdit
  1223.         Left = 424
  1224.         Top = 120
  1225.         Width = 73
  1226.         Height = 20
  1227.         EditMask = '!99-99-00;1;_'
  1228.         Font.Color = clBlack
  1229.         Font.Height = -11
  1230.         Font.Name = 'MS Sans Serif'
  1231.         Font.Style = []
  1232.         MaxLength = 8
  1233.         ParentFont = False
  1234.         TabOrder = 19
  1235.         Text = '  -  -  '
  1236.       end
  1237.       object MaskEdit18: TMaskEdit
  1238.         Left = 424
  1239.         Top = 144
  1240.         Width = 73
  1241.         Height = 20
  1242.         EditMask = '!99-99-00;1;_'
  1243.         Font.Color = clBlack
  1244.         Font.Height = -11
  1245.         Font.Name = 'MS Sans Serif'
  1246.         Font.Style = []
  1247.         MaxLength = 8
  1248.         ParentFont = False
  1249.         TabOrder = 20
  1250.         Text = '  -  -  '
  1251.       end
  1252.       object MaskEdit19: TMaskEdit
  1253.         Left = 424
  1254.         Top = 168
  1255.         Width = 73
  1256.         Height = 20
  1257.         EditMask = '!99-99-00;1;_'
  1258.         Font.Color = clBlack
  1259.         Font.Height = -11
  1260.         Font.Name = 'MS Sans Serif'
  1261.         Font.Style = []
  1262.         MaxLength = 8
  1263.         ParentFont = False
  1264.         TabOrder = 21
  1265.         Text = '  -  -  '
  1266.       end
  1267.       object MaskEdit20: TMaskEdit
  1268.         Left = 424
  1269.         Top = 192
  1270.         Width = 73
  1271.         Height = 20
  1272.         EditMask = '!99-99-00;1;_'
  1273.         Font.Color = clBlack
  1274.         Font.Height = -11
  1275.         Font.Name = 'MS Sans Serif'
  1276.         Font.Style = []
  1277.         MaxLength = 8
  1278.         ParentFont = False
  1279.         TabOrder = 22
  1280.         Text = '  -  -  '
  1281.       end
  1282.       object MaskEdit21: TMaskEdit
  1283.         Left = 424
  1284.         Top = 216
  1285.         Width = 73
  1286.         Height = 20
  1287.         EditMask = '!99-99-00;1;_'
  1288.         Font.Color = clBlack
  1289.         Font.Height = -11
  1290.         Font.Name = 'MS Sans Serif'
  1291.         Font.Style = []
  1292.         MaxLength = 8
  1293.         ParentFont = False
  1294.         TabOrder = 23
  1295.         Text = '  -  -  '
  1296.       end
  1297.       object MaskEdit22: TMaskEdit
  1298.         Left = 424
  1299.         Top = 240
  1300.         Width = 73
  1301.         Height = 20
  1302.         EditMask = '!99-99-00;1;_'
  1303.         Font.Color = clBlack
  1304.         Font.Height = -11
  1305.         Font.Name = 'MS Sans Serif'
  1306.         Font.Style = []
  1307.         MaxLength = 8
  1308.         ParentFont = False
  1309.         TabOrder = 24
  1310.         Text = '  -  -  '
  1311.       end
  1312.       object MaskEdit23: TMaskEdit
  1313.         Left = 424
  1314.         Top = 264
  1315.         Width = 73
  1316.         Height = 20
  1317.         EditMask = '!99-99-00;1;_'
  1318.         Font.Color = clBlack
  1319.         Font.Height = -11
  1320.         Font.Name = 'MS Sans Serif'
  1321.         Font.Style = []
  1322.         MaxLength = 8
  1323.         ParentFont = False
  1324.         TabOrder = 25
  1325.         Text = '  -  -  '
  1326.       end
  1327.       object MaskEdit24: TMaskEdit
  1328.         Left = 424
  1329.         Top = 288
  1330.         Width = 73
  1331.         Height = 20
  1332.         EditMask = '!99-99-00;1;_'
  1333.         Font.Color = clBlack
  1334.         Font.Height = -11
  1335.         Font.Name = 'MS Sans Serif'
  1336.         Font.Style = []
  1337.         MaxLength = 8
  1338.         ParentFont = False
  1339.         TabOrder = 26
  1340.         Text = '  -  -  '
  1341.       end
  1342.       object Edit1: TEdit
  1343.         Left = 280
  1344.         Top = 216
  1345.         Width = 137
  1346.         Height = 20
  1347.         Font.Color = clBlack
  1348.         Font.Height = -11
  1349.         Font.Name = 'MS Sans Serif'
  1350.         Font.Style = [fsBold]
  1351.         ParentFont = False
  1352.         TabOrder = 27
  1353.       end
  1354.       object Edit2: TEdit
  1355.         Left = 280
  1356.         Top = 240
  1357.         Width = 137
  1358.         Height = 20
  1359.         Font.Color = clBlack
  1360.         Font.Height = -11
  1361.         Font.Name = 'MS Sans Serif'
  1362.         Font.Style = [fsBold]
  1363.         ParentFont = False
  1364.         TabOrder = 28
  1365.       end
  1366.       object Edit3: TEdit
  1367.         Left = 280
  1368.         Top = 264
  1369.         Width = 137
  1370.         Height = 20
  1371.         Font.Color = clBlack
  1372.         Font.Height = -11
  1373.         Font.Name = 'MS Sans Serif'
  1374.         Font.Style = [fsBold]
  1375.         ParentFont = False
  1376.         TabOrder = 29
  1377.       end
  1378.       object Edit4: TEdit
  1379.         Left = 280
  1380.         Top = 288
  1381.         Width = 137
  1382.         Height = 20
  1383.         Font.Color = clBlack
  1384.         Font.Height = -11
  1385.         Font.Name = 'MS Sans Serif'
  1386.         Font.Style = [fsBold]
  1387.         ParentFont = False
  1388.         TabOrder = 30
  1389.       end
  1390.     end
  1391.     object TTabPage
  1392.       Left = 5
  1393.       Top = 26
  1394.       Caption = 'Childhood Diseases'
  1395.       object Label14: TLabel
  1396.         Left = 7
  1397.         Top = 330
  1398.         Width = 123
  1399.         Height = 24
  1400.         Caption = 'At the Doctor'
  1401.         Font.Color = clBlue
  1402.         Font.Height = -21
  1403.         Font.Name = 'Arial'
  1404.         Font.Style = []
  1405.         ParentFont = False
  1406.       end
  1407.       object Label15: TLabel
  1408.         Left = 144
  1409.         Top = 8
  1410.         Width = 41
  1411.         Height = 19
  1412.         Caption = 'Date:'
  1413.         Font.Color = clBlue
  1414.         Font.Height = -16
  1415.         Font.Name = 'Arial'
  1416.         Font.Style = [fsBold]
  1417.         ParentFont = False
  1418.       end
  1419.       object Label16: TLabel
  1420.         Left = 8
  1421.         Top = 40
  1422.         Width = 38
  1423.         Height = 19
  1424.         Caption = 'Title:'
  1425.         Font.Color = clBlue
  1426.         Font.Height = -16
  1427.         Font.Name = 'Arial'
  1428.         Font.Style = [fsBold]
  1429.         ParentFont = False
  1430.       end
  1431.       object DisTitle: TLabel
  1432.         Left = 56
  1433.         Top = 40
  1434.         Width = 249
  1435.         Height = 19
  1436.         AutoSize = False
  1437.         Caption = 'Diary Empty'
  1438.         Font.Color = clBlue
  1439.         Font.Height = -16
  1440.         Font.Name = 'Arial'
  1441.         Font.Style = [fsBold]
  1442.         ParentFont = False
  1443.       end
  1444.       object Label18: TLabel
  1445.         Left = 320
  1446.         Top = 16
  1447.         Width = 99
  1448.         Height = 19
  1449.         Caption = 'Date Search:'
  1450.         Font.Color = clBlue
  1451.         Font.Height = -16
  1452.         Font.Name = 'Arial'
  1453.         Font.Style = [fsBold]
  1454.         ParentFont = False
  1455.       end
  1456.       object Label19: TLabel
  1457.         Left = 320
  1458.         Top = 80
  1459.         Width = 96
  1460.         Height = 19
  1461.         Caption = 'Title Search:'
  1462.         Font.Color = clBlue
  1463.         Font.Height = -16
  1464.         Font.Name = 'Arial'
  1465.         Font.Style = [fsBold]
  1466.         ParentFont = False
  1467.       end
  1468.       object DisUp: TSpeedButton
  1469.         Left = 280
  1470.         Top = 240
  1471.         Width = 25
  1472.         Height = 25
  1473.         Hint = 'Previous Record'
  1474.         Glyph.Data = {
  1475.           78010000424D7801000000000000760000002800000020000000100000000100
  1476.           04000000000000000000120B0000120B00000000000000000000000000000000
  1477.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  1478.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
  1479.           3333333333777F33333333333309033333333333337F7F333333333333090333
  1480.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  1481.           33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
  1482.           3333333777737777F333333099999990333333373F3333373333333309999903
  1483.           333333337F33337F33333333099999033333333373F333733333333330999033
  1484.           3333333337F337F3333333333099903333333333373F37333333333333090333
  1485.           33333333337F7F33333333333309033333333333337373333333333333303333
  1486.           333333333337F3333333333333303333333333333337333333330000}
  1487.         NumGlyphs = 2
  1488.         ParentShowHint = False
  1489.         ShowHint = True
  1490.         OnClick = DisUpClick
  1491.       end
  1492.       object DisDown: TSpeedButton
  1493.         Left = 280
  1494.         Top = 272
  1495.         Width = 25
  1496.         Height = 25
  1497.         Hint = 'Next Record'
  1498.         Glyph.Data = {
  1499.           78010000424D7801000000000000760000002800000020000000100000000100
  1500.           04000000000000000000120B0000120B00000000000000000000000000000000
  1501.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  1502.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
  1503.           333333333337F33333333333333033333333333333373F333333333333090333
  1504.           33333333337F7F33333333333309033333333333337373F33333333330999033
  1505.           3333333337F337F33333333330999033333333333733373F3333333309999903
  1506.           333333337F33337F33333333099999033333333373333373F333333099999990
  1507.           33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
  1508.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  1509.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  1510.           33333333337F7F333333333333000333333333333377733333330000}
  1511.         NumGlyphs = 2
  1512.         ParentShowHint = False
  1513.         ShowHint = True
  1514.         OnClick = DisDownClick
  1515.       end
  1516.       object Shape2: TShape
  1517.         Left = 360
  1518.         Top = 192
  1519.         Width = 81
  1520.         Height = 97
  1521.         Brush.Color = clBtnFace
  1522.         Pen.Color = clRed
  1523.         Pen.Style = psInsideFrame
  1524.         Pen.Width = 2
  1525.       end
  1526.       object Label17: TLabel
  1527.         Left = 368
  1528.         Top = 200
  1529.         Width = 65
  1530.         Height = 16
  1531.         Alignment = taCenter
  1532.         AutoSize = False
  1533.         Caption = 'Delete'
  1534.         Font.Color = clRed
  1535.         Font.Height = -13
  1536.         Font.Name = 'System'
  1537.         Font.Style = [fsBold]
  1538.         ParentFont = False
  1539.         Transparent = True
  1540.       end
  1541.       object SpeedButton1: TSpeedButton
  1542.         Left = 376
  1543.         Top = 216
  1544.         Width = 49
  1545.         Height = 49
  1546.         Glyph.Data = {
  1547.           26020000424D260200000000000076000000280000001C0000001B0000000100
  1548.           040000000000B0010000CE0E0000D80E00000000000000000000000000000000
  1549.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  1550.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
  1551.           66666666676666660000666666666666666666667B101B160000666666666666
  1552.           66666667B101B1B600006666666666666666667B101B1B060000666666666666
  1553.           666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
  1554.           66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
  1555.           67022201B0B0000600006666666666667B0022000B0000660000666666666667
  1556.           B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
  1557.           B1B1B0200006666600006666666672001B1B1000006666660000666666670222
  1558.           01B1B000066666660000666666780022001B00006666666600006666678D8D02
  1559.           20B0000666666666000066667008D800200000666666666600006667FDF08D80
  1560.           20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
  1561.           0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
  1562.           06666666666666660000600FDFDF000066666666666666660000600DFDF00006
  1563.           6666666666666666000060000000006666666666666666660000660000000666
  1564.           66666666666666660000}
  1565.         OnClick = SpeedButton1Click
  1566.       end
  1567.       object Label20: TLabel
  1568.         Left = 368
  1569.         Top = 264
  1570.         Width = 65
  1571.         Height = 16
  1572.         Alignment = taCenter
  1573.         AutoSize = False
  1574.         Caption = 'Record'
  1575.         Font.Color = clRed
  1576.         Font.Height = -13
  1577.         Font.Name = 'System'
  1578.         Font.Style = [fsBold]
  1579.         ParentFont = False
  1580.         Transparent = True
  1581.       end
  1582.       object DisDate: TLabel
  1583.         Left = 192
  1584.         Top = 8
  1585.         Width = 64
  1586.         Height = 19
  1587.         Caption = '__-__-__'
  1588.         Font.Color = clBlue
  1589.         Font.Height = -16
  1590.         Font.Name = 'Arial'
  1591.         Font.Style = [fsBold]
  1592.         ParentFont = False
  1593.       end
  1594.       object Ok4: TBitBtn
  1595.         Left = 340
  1596.         Top = 319
  1597.         Width = 93
  1598.         Height = 27
  1599.         Caption = 'Ok'
  1600.         Default = True
  1601.         Font.Color = clGreen
  1602.         Font.Height = -19
  1603.         Font.Name = 'Arial'
  1604.         Font.Style = []
  1605.         ModalResult = 1
  1606.         ParentFont = False
  1607.         TabOrder = 0
  1608.         OnClick = Ok4Click
  1609.         Glyph.Data = {
  1610.           F6000000424DF600000000000000760000002800000010000000100000000100
  1611.           04000000000080000000CE0E0000D80E00000000000000000000000000000000
  1612.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  1613.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  1614.           5555555555555555555555555205555555555555222055555555555522205555
  1615.           5555555222220555555555222222055555555722052220555555720555522055
  1616.           5555555555522205555555555555220555555555555552205555555555555572
  1617.           0555555555555557205555555555555552205555555555555555}
  1618.         Margin = 8
  1619.         Spacing = -1
  1620.       end
  1621.       object Cancel4: TBitBtn
  1622.         Left = 436
  1623.         Top = 319
  1624.         Width = 93
  1625.         Height = 27
  1626.         Font.Color = clRed
  1627.         Font.Height = -19
  1628.         Font.Name = 'Arial'
  1629.         Font.Style = []
  1630.         ParentFont = False
  1631.         TabOrder = 1
  1632.         OnClick = Cancel4Click
  1633.         Kind = bkCancel
  1634.         Margin = 2
  1635.         Spacing = -1
  1636.       end
  1637.       object Help4: TBitBtn
  1638.         Left = 504
  1639.         Top = 287
  1640.         Width = 25
  1641.         Height = 27
  1642.         Caption = ' '
  1643.         Font.Color = clBlack
  1644.         Font.Height = -11
  1645.         Font.Name = 'MS Sans Serif'
  1646.         Font.Style = [fsBold]
  1647.         ParentFont = False
  1648.         TabOrder = 2
  1649.         OnClick = Help4Click
  1650.         Kind = bkHelp
  1651.         Margin = 2
  1652.         Spacing = -1
  1653.       end
  1654.       object DisEntry: TMemo
  1655.         Left = 8
  1656.         Top = 72
  1657.         Width = 265
  1658.         Height = 225
  1659.         Lines.Strings = (
  1660.           '')
  1661.         ScrollBars = ssVertical
  1662.         TabOrder = 3
  1663.       end
  1664.       object DisDateSearch: TComboBox
  1665.         Left = 320
  1666.         Top = 40
  1667.         Width = 145
  1668.         Height = 26
  1669.         Font.Color = clBlue
  1670.         Font.Height = -16
  1671.         Font.Name = 'Arial'
  1672.         Font.Style = []
  1673.         ItemHeight = 18
  1674.         ParentFont = False
  1675.         TabOrder = 4
  1676.         OnClick = DisDateSearchClick
  1677.       end
  1678.       object DisTitleSearch: TComboBox
  1679.         Left = 320
  1680.         Top = 104
  1681.         Width = 145
  1682.         Height = 26
  1683.         Font.Color = clBlue
  1684.         Font.Height = -16
  1685.         Font.Name = 'Arial'
  1686.         Font.Style = []
  1687.         ItemHeight = 18
  1688.         ParentFont = False
  1689.         TabOrder = 5
  1690.         OnClick = DisTitleSearchClick
  1691.       end
  1692.       object BitBtn2: TBitBtn
  1693.         Left = 320
  1694.         Top = 144
  1695.         Width = 145
  1696.         Height = 33
  1697.         Caption = 'New Entry'
  1698.         Font.Color = clBlue
  1699.         Font.Height = -19
  1700.         Font.Name = 'Arial'
  1701.         Font.Style = [fsBold]
  1702.         ParentFont = False
  1703.         TabOrder = 6
  1704.         OnClick = BitBtn2Click
  1705.       end
  1706.     end
  1707.   end
  1708. end
  1709.